home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / STORM1.DMS / in.adf / StormC Install-Script < prev    next >
Encoding:
Text File  |  1995-11-06  |  25.4 KB  |  915 lines
  1. ; $VER: StormC V1.0 Install Version 1.02 (4.11.95)
  2. ; Installations-Script - na, wofür wohl?
  3. ; 
  4.  
  5. (complete 0)
  6.  
  7. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  8. ; Versionen.
  9.  
  10. (set stcpp-version "1.00")
  11. (set stcpp-date "(04 Nov 95)")
  12.  
  13. ;====================================================================
  14. ; Initialisierungen
  15.  
  16.  
  17. (set @default-dest "")
  18.  
  19. (set os-version (/ (getversion) 65536))
  20. (set os-13 (< os-version 36))
  21. (set os-20 (>= os-version 36))
  22. (set os-21 (>= os-version 38))
  23.  
  24. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  25.  
  26. ; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.
  27.  
  28. (set run-lha                "run RAM:Lhex x -a ")
  29. (set run-free                "run StormC_Disk2:StormFree")
  30.  
  31. ; Die Pfadnamen der einzelnen Quell-Dateien.
  32.  
  33. (set source-more                            "StormC_Disk1:C/More")
  34. (set source-lhx                            "StormC_Disk1:C/LHex")
  35. (set source-ikon                            "StormC_Disk1:C/StormCPP.info")
  36. (set source-Liesmich                        "StormC_Disk1:Liesmich")
  37.  
  38. (set archive-compiler                    "StormC_Disk1:StormC.LHA")
  39. (set archive-editor                        "StormC_Disk1:StormED.LHA")
  40. (set archive-libs                            "StormC_Disk1:Libraries.LHA")
  41. (set archive-ikons                        "StormC_Disk1:BeispIkons.LHA")
  42.  
  43. (set archive-menulib                        "StormC_Disk2:Menumanager.LHA")
  44. (set archive-lexika                        "StormC_Disk2:Lexiken.LHA")
  45. (set archive-settings                    "StormC_Disk2:Settings.LHA")
  46. (set archive-asm                            "StormC_Disk2:StormASM.LHA")
  47. (set archive-cpp                            "StormC_Disk2:StormCPP.LHA")
  48. (set archive-run                            "StormC_Disk2:StormRUN.LHA")
  49. (set archive-shell                        "StormC_Disk2:StormShell.LHA")
  50. (set archive-grafiken                    "StormC_Disk2:Grafiken.LHA")
  51. (set archive-env                            "StormC_Disk2:ENV.Lha")
  52. (set archive-include                        "StormC_Disk2:Includes.lha")
  53. (set archive-demos                        "StormC_Disk2:C-Demos.lha")
  54.  
  55. (set !auswahlhilfe
  56.     (cat "\nAuf Ihrer Festplatte befindet sich bereits eine Version "
  57.         "der Datei die installiert werden soll. \n\n"
  58.         "Wählen Sie \"Ja\", wenn Sie die alte Datei mit der neuen "
  59.         "überschreiben möchten. Anderenfalls wählen Sie bitte \"Nein\"!\n"))
  60.  
  61. ; Die benötigten Disketten
  62.  
  63. (set #prp-insert-disk1
  64.         (cat "\n\n\nBitte legen Sie nun die Diskette 1 \"StormC_Disk1\" "
  65.                  "in ein beliebiges Laufwerk ein!"))
  66. (set #prp-insert-disk2
  67.         (cat "\n\n\nBitte legen Sie nun die Diskette 2 \"StormC_Disk2\" "
  68.                  "in ein beliebiges Laufwerk ein!"))
  69. ;(set #prp-insert-disk3
  70. ;        (cat "\n\n\nBitte legen Sie nun die Diskette 3 \"StormC_Disk3\" "
  71. ;                 "in ein beliebiges Laufwerk ein!"))
  72.  
  73. (set #prp-copy-menu-lib
  74.     "Kopiere die Menümanager-Library")
  75. (set #hlp-copy-menu-lib
  76.     (cat    "Die Menümanager-Library beinhaltet die Menüleisten des Systems.\n\n "))
  77. (set #wrk-create-pref-file
  78.     "\nDie Voreinstellungs-Datei wird erzeugt...")
  79.  
  80. ; Die Dateigrößen
  81.  
  82. (set size-stormcpp            54000)
  83. (set size-stormc                424000)
  84. (set size-stormed                312000)
  85. (set size-stormshell              416000)
  86. (set size-stormrun            381000)
  87. (set size-stormasm            36000)
  88. (set size-stormpics            50000)
  89. (set size-stormlex            50000)
  90. (set size-libs                    320000)
  91. (set size-inlcudes            950000)
  92. (set size-demos                200000)
  93.  
  94. (set size-komplett    ( + size-stormrun size-stormasm size-stormcpp size-stormc size-stormed size-stormshell size-stormpics size-stormlex size-libs size-inlcudes size-demos))
  95.  
  96. ;=====================================================================================
  97. ; Beginn der Installation
  98. ;=====================================================================================
  99.  
  100. ; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  101.  
  102. (set act-user-level @user-level)
  103. (user 1)
  104.  
  105. (message (cat    "\nWillkommen bei der Installation von \n\n\"StormC "
  106.                      stcpp-version " vom "stcpp-date "\"!\n\n"
  107.                     "Dieses Skript kopiert die verschiedenen Dateien, "
  108.                     "aus denen sich das Compilersystem zusammensetzt, "
  109.                     "auf Ihre Festplatte.\n"))
  110.  
  111. (user act-user-level)
  112. (welcome)
  113.  
  114. (complete 5)
  115.  
  116. (set act-user-level @user-level)
  117. (user 1)
  118.  
  119.  
  120. ;    Alte Version prüfen und entsprechende Warnung ausgeben! **************************************************************
  121.  
  122. (set folder "WORK:StormC")
  123.  
  124. (if (<> (getassign "STORMC") "")
  125.     (
  126.         (message (cat    "Auf Ihrer Festplatte befindet sich bereits eine "
  127.                         "Installation von StormC! Wählen Sie einfach die bereits "
  128.                         "vorhandene Schublade an, wenn Sie ihr altes System "
  129.                         "aktualisieren möchten! \n\n"
  130.                         "Voreinstellungen wie das Default-Projekt oder die "
  131.                         "Systemeinstellungen werden nicht verändert!\n\n"))
  132.  
  133.     (set folder (getassign "STORMC"))
  134.     )
  135. )
  136.  
  137. (makeassign "STORMC")
  138.  
  139. (user act-user-level)
  140.  
  141. (if (= @user-level 0)
  142.     (
  143.     (user 1)
  144.     (message (cat    "Im Einsteiger-Modus wird davon ausgegangen, daß Storm C auf "
  145.                         "einer Festplatte installiert wird, auf der noch mindestens "
  146.                         "ca. 5 MByte freier Speicherplatz verfügbar sind. Sie werden "
  147.                         "dazu im nächsten Fenster nach dem Namen der gewünschten "
  148.                         "Schublade gefragt.\n\n"
  149.                         "Alle weiteren Angaben werden dann vom Installations-Skript "
  150.                         "möglichst genau an Ihr System angepaßt."))))
  151.  
  152. (set ok 0)
  153. (while (not ok)
  154.     (set folder
  155.         (askdir
  156.             (prompt "Auswahl des Pfades für die Compiler-Installation.\nBitte wählen Sie eine Schublade!")
  157.             (help (cat    "    Sie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  158.                             "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  159.                             "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  160.                             "gekennzeichneten Einträge auswählen.\n"
  161.                             "    Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  162.                             "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  163.                             "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  164.                             "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  165.                             "\n\n"
  166.                             "Storm C kann nur in eine Schublade nicht aber auf eine "
  167.                             "Partition direkt installiert werden! Wenn Sie also nur ein Laufwerk "
  168.                             "für die Installation auswählen, wird Ihnen eine Fehlermeldung angezeigt!\n\n"
  169.                             @askdir-help))
  170.             (default folder)
  171.             (disk)
  172.         )
  173.     )
  174.  
  175.     ; Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  176.     ; diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  177.     ; kann die Auswahl-Schleife beendet werden.
  178.     (if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  179.         (message (cat    "\nBei Ihrer Auswahl \"" folder "\" handelt es sich nicht um "
  180.                             "eine gültige Schublade!\n\n"
  181.                             "Sie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  182.                             "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  183.                             "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  184.                             "gekennzeichneten Einträge auswählen.\n"
  185.                             "Über den Schalter \"Neue Schublade anlegen...\" können Sie ein neue "
  186.                                "Schublade erzeugen. Diese neue Schublade\nwird auf der Partition "
  187.                                "angelegt, die Sie soeben betrachten."))
  188.         ;else
  189.         (
  190.             (set freediskspace (getdiskspace folder))    ; Der freie Speicher auf diesem Medium
  191.  
  192.             (if (< freediskspace size-komplett)
  193.                 (
  194.                 (user 1)
  195.                 (message (cat    "\nAuf der ausgewählten Festplattenpartition "
  196.                                             "steht nicht genügend freier Speicher für die "
  197.                                             "komplette Installation des Compilersystems zur Verfügung.\n\n"
  198.                                             "Freier Speicher " freediskspace "!\n"
  199.                                             "Benötigter Speicher " size-komplett "!\n\n"
  200.                                             "Bitte wählen Sie eine andere Partition, auf "
  201.                                             "der entsprechende Kapazitäten vorhanden sind!"))                
  202.                 )
  203.             ;else
  204.             (set ok 1)
  205.             )
  206.         )
  207.     )
  208. )
  209.  
  210. (user act-user-level)
  211.  
  212. (set destbin    (tackon folder "BIN"))
  213. (if                                          ; Compiler-Verzeichnis erzeugen
  214.     (= (exists destbin) 0)
  215.     (makedir destbin (infos))
  216. )
  217.  
  218. (set destdemo    (tackon folder "Beispiele"))
  219. (if                                          ; Demo-Verzeichnis erzeugen
  220.     (= (exists destdemo) 0)
  221.     (makedir destdemo (infos))
  222. )
  223. (set destinclude (tackon folder "Include"))
  224. (if                                          ; Includes-Verzeichnis erzeugen
  225.     (= (exists destinclude) 0)
  226.     (makedir destinclude)
  227. )
  228.  
  229. (set destlib    (tackon folder "Lib"))
  230. (if                                          ; Libraries-Verzeichnis erzeugen
  231.     (= (exists destlib) 0)
  232.     (makedir destlib)
  233. )
  234.  
  235. ; Diskette 1 einlegen!
  236.  
  237. (askdisk
  238.     (prompt #prp-insert-disk1)
  239.     (help #askdir-help)
  240.     (dest "StormC_Disk1")
  241. )
  242.  
  243. (complete 5)
  244.  
  245. ; Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  246. ; geladen werden muß.
  247.  
  248. (copyfiles
  249.     (source source-lhx)
  250.     (dest "RAM:")
  251. )
  252.  
  253.  
  254. ; Liesmich Datei auf Festplatte kopieren!
  255.  
  256. (copyfiles
  257.     (source source-Liesmich)
  258.     (dest folder)
  259.     (infos)
  260. )
  261.  
  262. (complete 10)
  263.  
  264. (set destinfo    (tackon folder "StormCPP.info"))
  265. (if                                          ; Projekt-Ikon erzeugen
  266.     (= (exists destinfo) 0)
  267.     (copyfiles
  268.         (source source-ikon)
  269.         (dest folder)
  270.     )
  271. )
  272.  
  273. (complete 15)
  274.  
  275. ;(copylib                                              ; Menumanager-Library kopieren
  276. ;        (prompt #prp-copy-menu-lib)
  277. ;        (help #hlp-copy-menu-lib)
  278. ;        (source source-menulib)
  279. ;        (dest "LIBS:")
  280. ;        (confirm)
  281. ;)
  282.  
  283. (makeassign "lhex_temp" destbin)
  284.  
  285. (set bool 1)
  286.  
  287. (set destbinexists    (tackon destbin "STORMC"))
  288.  
  289. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; Compiler vorhanden?
  290.     (
  291.         (set bool (askbool
  292.                         (prompt "\n\nMöchten Sie den Compiler \"StormC\" installieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  293.                         (help !auswahlhilfe)
  294.                         (default 1)
  295.                         (choices "Ja" "Nein")
  296.                    )
  297.          )
  298.     )
  299. )
  300.  
  301. ;(debug "Rückgabe von AskBool" bool)
  302.  
  303. (if (= bool 1)
  304.     (
  305.         (working "Entpacke das Compilersystem..." " \n\n" "ANSI C/C++ Compiler" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  306.         (makeassign "lhex_temp" destbin)
  307.     
  308.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-compiler))
  309.         (if  ( <> COMPERROR 0)
  310.             (message
  311.                 "\n\n\n\n"
  312.                 "Fehler beim Entpacken des Compilers.\n"
  313.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  314.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  315.                 " Lösch- oder Schreibgeschützt sind.")
  316.         )
  317.     )
  318. )
  319.  
  320. (complete 20)
  321.  
  322. (set bool 1)
  323.  
  324. (set destbinexists    (tackon destbin "STORMED"))
  325.  
  326. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; Editor vorhanden?
  327.     (
  328.         (set bool (askbool
  329.                         (prompt "\n\nMöchten Sie den Editor \"StormED\" installieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  330.                         (help !auswahlhilfe)
  331.                         (default 1)
  332.                         (choices "Ja" "Nein")
  333.                    )
  334.          )
  335.     )
  336. )
  337.  
  338. ;(debug "Rückgabe von AskBool" bool)
  339.  
  340. (if (= bool 1)
  341.     (
  342.         (working "Entpacke das Compilersystem..." " \n\n" "Storm-Editor" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  343.         (makeassign "lhex_temp" destbin)
  344.     
  345.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-editor))
  346.         (if  ( <> COMPERROR 0)
  347.             (message
  348.                 "\n\n\n\n"
  349.                 "Fehler beim Entpacken des Editors.\n"
  350.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  351.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  352.                 " Lösch- oder Schreibgeschützt sind.")
  353.         )
  354.     )
  355. )
  356.  
  357. (makeassign "lhex_temp")
  358.  
  359. (complete 25)
  360.  
  361. ; Libraries entpacken
  362.  
  363. (set bool 1)
  364.  
  365. (set destlibexists    (tackon destlib "logfile"))
  366.  
  367. (if (AND (> @user-level 0) (> (exists destlibexists) 0))            ; Libs vorhanden?
  368.     (
  369.         (set bool (askbool
  370.                         (prompt "\n\nMöchten Sie die Bibliotheken überinstallieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  371.                         (help !auswahlhilfe)
  372.                         (default 1)
  373.                         (choices "Ja" "Nein")
  374.                    )
  375.          )
  376.     )
  377. )
  378.  
  379. ;(debug "Rückgabe von AskBool" bool)
  380.  
  381. (if (= bool 1)
  382.     (
  383.  
  384.         (working "Entpacke die OS 3.1 Bibliotheken..." " \n\n\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  385.  
  386.         (makeassign "lhex_temp" destlib)
  387.  
  388.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-libs))
  389.         (if  ( <> INCLERROR 0)
  390.             (message
  391.                 "\n\n\n\n"
  392.                 "Fehler beim Entpacken der Bibliotheken.\n"
  393.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  394.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  395.                 " Lösch- oder Schreibgeschützt sind.")
  396.         )
  397.     )
  398. )
  399.  
  400. (complete 30)
  401.  
  402.  
  403. (set bool 1)
  404.  
  405. (set destdemoexists    (tackon destdemo "COLORWHEEL.info"))
  406.  
  407. (if (= (exists destdemoexists) 0)            ; Beispiele vorhanden?
  408.     (
  409.         (working "Entpacke die Beispiel-Datei-Ikons..." " \n\n\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  410.  
  411.         (makeassign "lhex_temp" destdemo)
  412.  
  413.         (set DEMOERROR (run "ram:lhex -qfw=lhex_temp: x " archive-ikons))
  414.         (if  ( <> DEMOERROR 0)
  415.             (message
  416.                 "\n\n\n\n"
  417.                 "Fehler beim Entpacken der Beispieldatei-Ikons.\n"
  418.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  419.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  420.                 " Lösch- oder Schreibgeschützt sind.")
  421.         )
  422.  
  423.     )
  424. )
  425.  
  426. (complete 35)
  427.  
  428. (makeassign "lhex_temp")
  429.  
  430. ; Diskette 2 einlegen! **********************************************************************************
  431.  
  432. (askdisk
  433.     (prompt #prp-insert-disk2)
  434.     (help #askdir-help)
  435.     (dest "StormC_Disk2")
  436. )
  437.  
  438. ; Compiler-System entpacken
  439.  
  440. (set bool 1)
  441.  
  442. (set destbinexists    (tackon destbin "STARTBILD"))
  443.  
  444. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; Startbild vorhanden?
  445.     (
  446.         (set bool (askbool
  447.                         (prompt "\n\nMöchten Sie die neuen Startgrafiken installieren?\n ")
  448.                         (help !auswahlhilfe)
  449.                         (default 1)
  450.                         (choices "Ja" "Nein")
  451.                    )
  452.          )
  453.     )
  454. )
  455.  
  456. ;(debug "Rückgabe von AskBool" bool)
  457.  
  458. (if (= bool 1)
  459.     (
  460.     (working "Entpacke das Compilersystem..." " \n\n" "Grafiken" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  461.  
  462.     (makeassign "lhex_temp" destbin)
  463.  
  464.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-grafiken))
  465.     (if  ( <> COMPERROR 0)
  466.         (message
  467.             "\n\n\n\n"
  468.             "Fehler beim Entpacken der Startgrafiken.\n"
  469.             "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  470.             " und, falls die Dateien bereits vorhanden sind diese nicht "
  471.             " Lösch- oder Schreibgeschützt sind.")
  472.     ))
  473. )
  474.  
  475. (complete 40)
  476.  
  477.  
  478. (set bool 1)
  479.  
  480. (set destbinexists    (tackon destbin "LEXIKON"))
  481.  
  482. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; Lexikon vorhanden?
  483.     (
  484.         (set bool (askbool
  485.                         (prompt "\n\nMöchten Sie die neuen Lexika installieren?\n ")
  486.                         (help !auswahlhilfe)
  487.                         (default 1)
  488.                         (choices "Ja" "Nein")
  489.                    )
  490.          )
  491.     )
  492. )
  493.  
  494. ;(debug "Rückgabe von AskBool" bool)
  495.  
  496. (if (= bool 1)
  497.     (
  498.         (working "Entpacke das Compilersystem..." " \n\n" "Editor-Lexiken" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  499.  
  500.         (makeassign "lhex_temp" destbin)
  501.  
  502.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lexika))
  503.         (if  ( <> COMPERROR 0)
  504.             (message
  505.                 "\n\n\n\n"
  506.                 "Fehler beim Entpacken der Lexiken.\n"
  507.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  508.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  509.                 " Lösch- oder Schreibgeschützt sind.")
  510.         )
  511.     )
  512. )
  513.  
  514. (complete 45)
  515.  
  516. (set bool 1)
  517.  
  518. (set destbinexists    (tackon destbin "STORMASM"))
  519.  
  520. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; StormASM vorhanden?
  521.     (
  522.         (set bool (askbool
  523.                         (prompt "\n\nMöchten Sie die neue Assembler Schnittstelle installieren?\n ")
  524.                         (help !auswahlhilfe)
  525.                         (default 1)
  526.                         (choices "Ja" "Nein")
  527.                    )
  528.          )
  529.     )
  530. )
  531.  
  532. ;(debug "Rückgabe von AskBool" bool)
  533.  
  534. (if (= bool 1)
  535.     (
  536.         (working "Entpacke das Compilersystem..." " \n\n" "Assembler-Schnittstelle" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  537.         (makeassign "lhex_temp" destbin)
  538.  
  539.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-asm))
  540.         (if  ( <> COMPERROR 0)
  541.             (message
  542.                 "\n\n\n\n"
  543.                 "Fehler beim Entpacken der Assemblerschnittstelle.\n"
  544.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  545.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  546.                 " Lösch- oder Schreibgeschützt sind.")
  547.         )
  548.     )
  549. )
  550.  
  551. (complete 50)
  552.  
  553. (set bool 1)
  554.  
  555. (set destbinexists    (tackon destbin "STORMCPP"))
  556.  
  557. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; StormCPP vorhanden?
  558.     (
  559.         (set bool (askbool
  560.                         (prompt "\n\nMöchten Sie den neuen Lader \"StormCPP\" installieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  561.                         (help !auswahlhilfe)
  562.                         (default 1)
  563.                         (choices "Ja" "Nein")
  564.                    )
  565.          )
  566.     )
  567. )
  568.  
  569. ;(debug "Rückgabe von AskBool" bool)
  570.  
  571. (if (= bool 1)
  572.     (
  573.         (working "Entpacke das Compilersystem..." " \n\n" "Ladeprogramm" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  574.         (makeassign "lhex_temp" destbin)
  575.  
  576.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-cpp))
  577.         (if  ( <> COMPERROR 0)
  578.             (message
  579.                 "\n\n\n\n"
  580.                 "Fehler beim Entpacken des Ladeprogramms.\n"
  581.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  582.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  583.                 " Lösch- oder Schreibgeschützt sind.")
  584.         )
  585.     )
  586. )
  587.  
  588. (complete 55)
  589.  
  590. (set bool 1)
  591.  
  592. (set destbinexists    (tackon destbin "STORMRUN"))
  593.  
  594. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; Startbild vorhanden?
  595.     (
  596.         (set bool (askbool
  597.                         (prompt "\n\nMöchten Sie den Debugger \"StormRUN\" installieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  598.                         (help !auswahlhilfe)
  599.                         (default 1)
  600.                         (choices "Ja" "Nein")
  601.                    )
  602.          )
  603.     )
  604. )
  605.  
  606. ;(debug "Rückgabe von AskBool" bool)
  607.  
  608. (if (= bool 1)
  609.     (
  610.         (working "Entpacke das Compilersystem..." " \n\n" "RunShell" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  611.         (makeassign "lhex_temp" destbin)
  612.  
  613.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-run))
  614.         (if  ( <> COMPERROR 0)
  615.             (message
  616.                 "\n\n\n\n"
  617.                 "Fehler beim Entpacken der RunShell.\n"
  618.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  619.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  620.                 " Lösch- oder Schreibgeschützt sind.")
  621.         )
  622.     )
  623. )
  624.  
  625. (complete 60)
  626.  
  627. (set bool 1)
  628.  
  629. (set destbinexists    (tackon destbin "STORMSHELL"))
  630.  
  631. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; Shell vorhanden?
  632.     (
  633.         (set bool (askbool
  634.                         (prompt "\n\nMöchten Sie die Projektverwaltung \"StormShell\" installieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  635.                         (help !auswahlhilfe)
  636.                         (default 1)
  637.                         (choices "Ja" "Nein")
  638.                    )
  639.          )
  640.     )
  641. )
  642.  
  643. ;(debug "Rückgabe von AskBool" bool)
  644.  
  645. (if (= bool 1)
  646.     (
  647.         (working "Entpacke das Compilersystem..." " \n\n" "StormShell" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  648.         (makeassign "lhex_temp" destbin)
  649.     
  650.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-shell))
  651.         (if  ( <> COMPERROR 0)
  652.             (message
  653.                 "\n\n\n\n"
  654.                 "Fehler beim Entpacken der StormShell.\n"
  655.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  656.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  657.                 " Lösch- oder Schreibgeschützt sind.")
  658.         )
  659.     )
  660. )
  661.  
  662.  
  663. (complete 65)
  664.  
  665. (set bool 1)
  666.  
  667. (set destbinexists    (tackon destbin "STORMSETTINGS.RUN"))
  668.  
  669. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; Settings vorhanden?
  670.     (
  671.         (set bool (askbool
  672.                         (prompt "\n\nMöchten Sie die neuen Voreinstellungen installieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  673.                         (help !auswahlhilfe)
  674.                         (default 1)
  675.                         (choices "Ja" "Nein")
  676.                    )
  677.          )
  678.     )
  679. )
  680.  
  681. ;(debug "Rückgabe von AskBool" bool)
  682.  
  683. (if (= bool 1)
  684.     (
  685.         (working "Entpacke das Compilersystem..." " \n\n" "Einstellungen" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  686.         (makeassign "lhex_temp" destbin)
  687.     
  688.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-settings))
  689.         (if  ( <> COMPERROR 0)
  690.             (message
  691.                 "\n\n\n\n"
  692.                 "Fehler beim Entpacken der Voreinstellungen.\n"
  693.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  694.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  695.                 " Lösch- oder Schreibgeschützt sind.")
  696.         )
  697.     )
  698. )
  699.  
  700. (complete 70)
  701.  
  702. (if          ; Voreinstellungs-Verzeichnis prüfen und gegebenenfalls schreiben
  703.     (= (exists "ENVARC:STORMCPP") 0)
  704.         (
  705.         (makeassign "lhex_temp")
  706.         (makeassign "lhex_temp" "ENVARC:")
  707.         (set ENVERROR (run "ram:lhex -qfw=lhex_temp: x " archive-env))
  708.         (if  ( <> ENVERROR 0)
  709.             (message
  710.                 "\n\n\n\n"
  711.                 "Fehler beim Installieren der ENV-Argumente.\n"))
  712.         (makeassign "lhex_temp")
  713.         (makeassign "lhex_temp" "ENV:")
  714.         (set ENVERROR (run "ram:lhex -qfw=lhex_temp: x " archive-env))
  715.         (if  ( <> ENVERROR 0)
  716.             (message
  717.                 "\n\n\n\n"
  718.                 "Fehler beim Installieren der ENV-Argumente.\n"))
  719.         (makeassign "lhex_temp")
  720.         )
  721. )
  722.  
  723. (complete 75)
  724.  
  725. (makeassign "lhex_temp")
  726.  
  727. ; Includes entpacken
  728.  
  729. (set bool 1)
  730.  
  731. (set destincludeexists    (tackon destinclude "assert.h"))
  732.  
  733. (if (AND (> @user-level 0) (> (exists destincludeexists) 0))            ; Includes vorhanden?
  734.     (
  735.         (set bool (askbool
  736.                         (prompt "\n\nMöchten Sie die 3.1-Includes überinstallieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  737.                         (help !auswahlhilfe)
  738.                         (default 1)
  739.                         (choices "Ja" "Nein")
  740.                    )
  741.          )
  742.     )
  743. )
  744.  
  745. ;(debug "Rückgabe von AskBool" bool)
  746.  
  747. (if (= bool 1)
  748.     (
  749.  
  750.         (working "Entpacke die OS 3.1 Includes..." " \n\n\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  751.  
  752.         (makeassign "lhex_temp" destinclude)
  753.  
  754.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-include))
  755.         (if  ( <> INCLERROR 0)
  756.             (message
  757.                 "\n\n\n\n"
  758.                 "Fehler beim Entpacken der Includes.\n"
  759.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  760.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  761.                 " Lösch- oder Schreibgeschützt sind.")
  762.         )
  763.     )
  764. )
  765.  
  766.  
  767. (makeassign "lhex_temp")
  768.  
  769. (complete 80)
  770.  
  771. ; ansidemo entpacken
  772.  
  773. (set bool 1)
  774.  
  775. (set destdemoexists    (tackon destdemo "COLORWHEEL"))
  776.  
  777. (if (AND (> @user-level 0) (> (exists destdemoexists) 0))            ; Beispiele vorhanden?
  778.     (
  779.         (set bool (askbool
  780.                         (prompt "\n\nMöchten Sie die Beispiele überinstallieren?\n")
  781.                         (help !auswahlhilfe)
  782.                         (default 1)
  783.                         (choices "Ja" "Nein")
  784.                    )
  785.          )
  786.     )
  787. )
  788.  
  789. ;(debug "Rückgabe von AskBool" bool)
  790.  
  791. (if (= bool 1)
  792.     (
  793.  
  794.         (working "Entpacke die Beispiel-Dateien..." " \n\n\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  795.  
  796.         (makeassign "lhex_temp" destdemo)
  797.  
  798.         (set DEMOERROR (run "ram:lhex -qfw=lhex_temp: x " archive-demos))
  799.         (if  ( <> DEMOERROR 0)
  800.             (message
  801.                 "\n\n\n\n"
  802.                 "Fehler beim Entpacken der Beispieldateien.\n"
  803.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  804.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  805.                 " Lösch- oder Schreibgeschützt sind.")
  806.         )
  807.     )
  808. )
  809.  
  810. (makeassign "lhex_temp")
  811.  
  812. (complete 90)
  813.  
  814. (set bool 1)
  815.  
  816. (set destbinexists    (tackon destbin "MENUMANAGER.LIBRARY"))
  817.  
  818. (if (AND (> @user-level 0) (> (exists destbinexists) 0))            ; Menumanager.Library vorhanden?
  819.     (
  820.         (set bool (askbool
  821.                         (prompt "\n\nMöchten Sie die neue Menübibliothek Schnittstelle installieren?\n\nWenn Sie \"Nein\" wählen ist es möglich, daß Ihr System nach der Installation nicht mehr korrekt funktioniert!")
  822.                         (help !auswahlhilfe)
  823.                         (default 1)
  824.                         (choices "Ja" "Nein")
  825.                    )
  826.          )
  827.     )
  828. )
  829.  
  830. ;(debug "Rückgabe von AskBool" bool)
  831.  
  832. (if (= bool 1)
  833.     (
  834.         (working "Entpacke das Compilersystem..." " \n\n" "Menübibliothek" "\n\n\n" "(Das dauert eine geraume Zeit, bitte haben Sie etwas Geduld...)")
  835.         (makeassign "lhex_temp" destbin)
  836.  
  837.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-menulib))
  838.         (if  ( <> COMPERROR 0)
  839.             (message
  840.                 "\n\n\n\n"
  841.                 "Fehler beim Entpacken der Menübibliothek.\n"
  842.                 "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  843.                 " und, falls die Dateien bereits vorhanden sind diese nicht "
  844.                 " Lösch- oder Schreibgeschützt sind.")
  845.         )
  846.     )
  847. )
  848.  
  849. (complete 95)
  850.  
  851.  
  852. ; ------- STARTUP ÄNDERN
  853.  
  854. (set command1 (cat  "ASSIGN STORMC: " folder ""))
  855.  
  856. (set command1.txt
  857.     (cat 
  858.          "\n\n\nUm mit StromC richtig arbeiten zu "
  859.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  860.          command1
  861.     )
  862. )
  863.  
  864. (startup "StormC"
  865.     (prompt command1.txt)
  866.     (help #help-startup)
  867.     (command command1)
  868. )
  869.  
  870. (makeassign "STORMC")
  871. (makeassign "STORMC" folder)
  872.  
  873. (set FREERROR (run "StormC_Disk2:StormFree"))
  874.  
  875. ;(debug "Freerror ist " FREERROR)
  876.  
  877. (if  ( <> FREERROR 0)
  878.     (
  879.     (delete "STORMC:BIN/StormCPP")
  880.     (delete "STORMC:BIN/StormCPP.info")
  881.     (delete "STORMC:StormCPP.info")
  882.     (message
  883.         "\n\n\n\n"
  884.         "Fehler bei der Installation.\n"
  885.         "Die Installation war fehlerhaft!\n\n"
  886.         "Stellen Sie bitte sicher, daß Ihre Festplatte ausreichend Speicherkapazität hat, "
  887.         " und, falls die Dateien bereits vorhanden sind diese nicht "
  888.         " Lösch- oder Schreibgeschützt sind.")
  889.     )
  890. )
  891.  
  892. (complete 100)
  893.  
  894. ; ------- FERTIG
  895.  
  896. ; Diskette 1 wieder einlegen!
  897.  
  898. ;(askdisk
  899. ;    (prompt #prp-insert-disk1)
  900. ;    (help #askdir-help)
  901. ;    (dest "StormC_Disk1")
  902. ;)
  903.  
  904. (run "run StormC_Disk2:C/More StormC:Liesmich")
  905.  
  906. (message (cat 
  907.     "Installation des StormC Compilers beendet.\n"
  908.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  909.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  910.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  911.    "StormC.\n\nWir wünschen ihnen viel Erfolg bei der Lösung Ihrer Programmieraufgaben!")
  912. )
  913.  
  914. (exit (quiet))
  915.